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Atari Computer Enthusiasts (N.S.W.) 


Atari Computer Enthusiasts (N.S.W,) is an independent, non-profit computer users’ group 
loosely affiliated with Atari Computer Enthusiasts in the U.S.A. We have no connections 
with ATARI, Inc. or their Australian distributors, Futuretronics Australia Pty Ltd. 


Our aims include promotion of the ATARI 400/600 Home Computer System} instructing both 
beginners and advanced users in programming techniques; exchanging hints, tips and ideas 
amongst members and generally enjoying ourselves, 


Meetings are held at 4.0 P.M. sharp on the first Monday of every month (or the second 
Monday if it dashes with a public holiday) at the offices of! 

LP, Sharp Associates 

&th Floor, 

Carlton Centre, 

So Elizabeth Street, 

Sydney, 

(between King Street and Martin Place) 
Membership to A.C.EAN.S.W,) is $15 joining fee and $15 annual subscription (or $10 joining 
fee and $10 annual subscription for students under 18 and still at school), 


Subscriptions or postal enquiries may be directed to} 
Atari Computer Enthusiasts (N.S.W,) 
78 Ayres Road, 
St, Ives, 
N.S.W, 2075 


Phone enquiries! 
Garry Francis: 2-0933 Ext 354 (Work) or 789-1397 (Home) 
Ron Baxter! 81-2283 (Home) 
Paul Phillips! 449-6284 (Home) 


WwW 


Meeting Dates for Remainder of 1982 


Lith October 
1st November (A.G.M,) 
&th December 


New Members 


Helen Abberfield, Cardiff North Jeffrey Maddock, Hurlstone Park 
David Anderson, Hornsby J. Masters, Howick, New Zealand 
Alan Cashin, Armidale Kerry McGill, Katoomba 
John Damen, Cromer Riccarda Modesto, Darling Point 
Nigel Delaforce, Everton Park, Qld, Ian Murray, Waverley 
Joe Delman, North Sydney Lewis Pallu, Bundaberg, Qld. 
Peter Dickeson, Northbridge Wayne Ranclaud,; Redhead 
Chris Fitzgerald, Clyde Richard Rannard, Northbridge 
Richard Gander, Pagewood Ken Scalley, Winston Hills 
M, Gatica, Strathfield Jilles Sheedy, Hardy’s Bay 
Andrew Hallahan, Monterey Kenneth Shiu, Lugarno 
David Heap, Gymea Steven Sommer, Mosman 
Andrew Jones, St. Ives Glen Stewart, Gorokan 
G. Koch, West Footscray, Vic. Philip Strong, Braddon, A.C.T, 
Robert Lang, West Pymble Ernie Sugrue, Maryborough, Qld, 
Alan Lee, Wickham, W.A. John Trigge, South Penrith 


Editorial 


As you can see by the list of new members elsewhere in this issue, A.C.EA(N.S.W.) is really 
growing. And growing strong. But we still want more members, not because we need them, 
but because they need us. We want to be able to truly represent all the ATARI owners in 
N.S.W. (and Australia for that matter) It’s not until we are a strong body that we'll be able 
to exert any influence over the stuffed marketing decisions of you-know-who down in 
Melbourne. So how about it? If you're reading this magazine and you’re not 2 member, then 
send your money in today! The cost of membership is more than covered by the programs in 
this issue alone, If these were available commercially, you’d be up for well over $50, 
whereas first time membership is only $30. If you’re already a member, then make sure you 
tell everybody else about A.C.EA(N.S.W.), And make sure your local dealer knows about us too 
- bulk membership forms are available on request, One more thing «» participate! There’s 
same great stuff in store for the future — all of which will be revealed in due course, Only 
by actively engaging in our various upcoming projects will you be able to get the most benefit 
out of your users’ group. 


As promised, this issue covers everything you need to know to get started with the extra 
graphics modes of the GTIA chip. And demos? Bay, we've got demos that’ll blow your mind! 
Flex your fingers and dust off the old keyboard and get ready for an assault on the senses 
like you’ve never experienced before. I challenge anybody with any computer under say 
$5,000 to match these demos in just a few lines of BASIC code! Whatever you do, make sure 
you enter all these demos. Your ATARI will never be the same, 


You may have noticed that INSIDE INFO has been growing, It now has smaller margins, more 
compact printing and more pages. Allin all, more value for your money. I’ve also been 
placing more emphasis on programs, as this seems to be what people want, Notice also that 
BASIC listings are now given in "screen widths", i.e. 38 columns wide, so that what you see 
in the listing is what you should get on the screen ~ a great aid in debugging: The first 
issue had only one substantial program listing. The secand issue increased to 5. This issue 
has a whopping 20 programs (or thereabouts) in BASIC and our first assembly language 
listings as well, Let’s keep it up! We've already got the best magazine in Australia - let’s 
make it the best in the world! If you haven’t written anything yet, then now’s the time to 
start. Don’t forget that next month is games issue, so send in your favourite games. 
Articles should be addressed to the Editor, care of the usual address, or brought to the next 
meeting, 


Lastly, please don’t forget the A.G.M. in November. This is the most important meeting of 
the year, aS we will elect our first committee, Once we’ve got a committee, things should 


really go ahead like a house on fire. If you’re a member, make every effort to come to this 
meeting and exercise your right to vote. Or better still, offer yourself as a possible 


committee member, 


— Garry Francis 





“How's the programming going?” 
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GTIA 
GRAPHICS 9, 10 & 11 == Part 1 


by Garry Francs 


INTRODUCTION 
From January this year, all ATARIT’s sold in the U.S.A. have had a GTIA chip installed rather 
than the original CTIA. This has caused a surge of articles in all the popular computer 
magazines which have tried to explain the differences between the 2 chips. In the process, a 
great deal of confusion has arisen in the minds of ATARI owners in Australia. "Does my 
computer have CTIA or GTIA?" Unfortunately, due to the total lack of support from 
Futuretronics (the ATARI distributor in Australia), most owners do not even realise that 
GTIA exists, so lets get one point clear right from the start. Every ATARI 400 or 800 ever 


sold in Australia has got a GTIA chip installed, 


GTIA would have to be the greatest invention of mankind since the ring-pull beer can, It 
gives the ATARI even more power «. power previously unheard of from any computer under 
about $100,000, A brief history of GTIA was printed in "Odds & Sods" in Issue No.l anda 
short description of its functions was given in "What Makes It Tick?” in Issue No.2, 
Generally speaking, the GTIA chip functions exactly the same as CTIA except for the 
provision of 3 extra graphics modes known as GRAPHICS 9, 10 and il. It is these 3 modes 


that we will explore in this issue and believe me, they are worth knowing about, 


When I began to write this article, I quickly realised that I’d be "spittin’ in the wind” if I 
expected everybody to understand what I was talking about, as most of our members are 
newcomers to computers. Therefore, I’ve decided to break the article down into 2 parts, 
This first part explains everything you need to know in simple terms in order to actually use 
GRAPHICS 9, 10 and 11. Where some general background in GRAPHICS modes is required, it 
is givens Even so, a great deal of what follows requires prior knowledge of other topics such 
as binary numbers, hardware registers, the Operating System and so on. We can’t afford the 
‘Space to explain all these things, but I'll do the best I can. If something seems a bit too 
technical, just skip over it and go onto the next section. (If you’d like to see articles on any 
of these topics in future issues, then let us know.) All addresses or memory locations are 
given in decimal with their hexadecimal equivalent given in square brackets, 


Part 2 will be published some time in the future and will cover how GRAPHICS 9, 10 and 11 
work. I’l] also include some tips like how to get a text window in these modes. So without 
further ado, let’s look at GRAPHICS 9, 10 and il, 


RESOLUTION AND PIXEL SIZE 
All the bit-mapped graphics modes on the ATARI (as distinct from text/character modes) 
consist of a number of points on the screen, Each of these points is referred to as a pixel 
(which is derived from the words "picture element"), The BASIC Reference Manual tells us 
that there are 6 bit-mapped modes available, i.e. GRAPHICS 3 to GRAPHICS & Where these 
modes differ is in the size of the pixel and the number of colours available (refer ta Tables 


9.1 and 9.5 of your BASIC Reference Manual), 


When talking about bit-mapped modes, you will often hear the term resolution. Resolution 
refers to the fineness of detail available, A display with large pixels can only show a low 
degree of detail and is therefore called low resolutions GRAPHICS 3 is low resolution, A 
display with very small pixels can show a high degree of detail and is therefore called high 
resolutions The maximum resolution on the ATARI is 320 pixels across the screen by 192 
down the screen. This is available from BASIC in GRAPHICS 8+14. In order to compare the 
size of pixels in the various modes, I hereby announce a GRAPHICS 8 pixel to be J dot. 
(Technically, a dot is half a colour clock wide by one scan line high.) The size of a pixel in 
GRAPHICS 3 is therefore § dots by § dots, in GRAPHICS 4 and 5 it is 4 dots by 4 dots, in 
GRAPHICS 4 and 7 it is 2 dots by 2 dots and in GRAPHICS 8 it is 1 dot by 1 dot. There are 
actually 2 other modes available (but not accessible with the GRAPHICS statement) whose 
pixel size is 2 dots wide by 1 dot high. 
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This brings us to GRAPHICS 9, 10 and 11, which all have the same resolution and pixel size, 
Their resolution is 80 pixels across the screen by 19% pixels down (there is no text window), 
Any pixel may be referenced by giving its horizontal and vertical (X and ¥Y) co-ordinates. X 
co-ordinates are numbered 0 to 79 and Y co-ordinates are numbered 0 to 191, The size of 
each pixel is 4 dots wide by 1 dot high G.e, 2 colour clocks wide by 1 scan line high). In cther 
words, each pixel is a tiny rectangle with the same width as a pixel in GRAPHICS 4 or 5, but 
the same height as a pixel in GRAPHICS 8, 


COLOUR 

The ATARI uses 2 parameters to spedfy a colours These are hue and luminance. Hue is the 
proportion of the red, green and bive constituents of a colour and luminance is its 
brightness, The combination of hue and luminance define the colour. There are 9 hardware 
registers which may each store colcur information (refer to the Table). As these are 
write-only registers, they each have a shadow register in page Z of RAM. During each 
vertical blank, the Operating System reads the values in the shadow registers, does colour 
shifting if the attract flag (ATRACT [$4D]) is negative and writes the resultant values into 
the corresponding hardware register, In BASIC, the SETCOLOR statement may be used to 
change the colours in 5 of the shadow registers, 4 of these are referred to as playfield 
registers and the remaining one is the background register, These are located from address 
708 to 712 £$02C4 ta $02C8] and correspond to SETCOLOR O to SETCOLOR 4 respectively 
{again refer to the Table), 


TABLE OF COLOUR REGISTERS 


EQUIVALENT 
IN BASIC 











An alternative method of changing the contents of these registers is to POKE them directly, 


The value to POKE is easily calculated from the formula! 

COLOUR=HUE#16+LUMINANCE 
where HUE and LUMINANCE are the second and third parameters of the normal SETCOLOR 
statement and the same value limitations apply (i.e. HUE is from 0 to 15 and LUMINANCE is 
an even number from 0 to 14), For example, to get a light green background, you would 
normally use SETCOLOR 4,11,6. This could also be done by using POKE 712,182 


(11%16+46=182), 


The shadow registers PCOLRO to PCOLR3 from address 704 to 707 [$02C0 to $02C3] are 
used for player-missile graphics. As P-M graphics are not directly supported by BASIC, you 
cannot use the SETCOLOR statement to change the colours in these registers, so the POKE 
method must be used instead, 


GRAPHICS 9 
GRAPHICS 9 allows up to 16 different luminances of the same hue. The hue is specified 
using SETCOLOR 4,HUE,0. Hue may be any value from 0 to 15, but the luminance parameter 
must be 0 (this will be explained in Part 2), Once this is done, the COLOR statement is used 
to switch between luminances, just as it is normally used to switch between colour registers. 
The parameter in the COLOR statement may be anything from 0 to 15 with 0 being the 
darkest luminance (the same as the background) and 15 being the brightest. Study Programs 1 
and 2 to see this in effect. Program 1 draws 16 vertical bars across the screen to show the 
range of luminances available, Program 2 draws horizontal lines which illustrate the fine 
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degree of shading available. In both programs, ance the screen is filled, you may press the < 
key to decrease the hue value or press > to increase the hue value, 


Note that GRAPHICS 9% is the only mode that allows 14 luminances - you are normally 
restricted to 8. What this means is that if you had a few display list interrupts, you could 
easily have 256 colours on the screen at once!! 


What’s wrong? Don’t you believe me? 


Whenever someone tells you that the ATARI can do something better than all the other 
personal computers on the market, you’d better believe it! Run Program 3 and you'll see 
what I mean. The next time your friend with the Apple (or VIC or Tandy Colour Computer or 
whatever) criticises your ATURKEY 400 for only being able to display 4 colours on the 
screen at once, show him this program and ask him to match it! Note that this program is 
particularly handy as a "palette" for selecting colours, as every possible colour is displayed 
on the screen at once. I won’t elaborate an how the program works as the REMarks pretty 
well cover it. The POKE in line 10 is a precautionary measure to ensure that Display List 
Interrupts are disabled (but the Vertical Blank is still enabled) while everything is being set 
up+ The USR routine is simply a delay to ensure that DLI's are not enabled until during the 
Vertical Blank, The assembled source code for the 2 machine language routines is given for 


anybody interested. 


GRAPHICS 10 

GRAPHICS 10 allows 9 colours in any hue/luminance combination by utilising the full 9 colour 
registers. It is the only mode that does so, The COLOR statement is used to switch 
between colour registers just as usual, but the parameter may be any value from 0 to 3. 
These correspond to the shadow registers from address 704 to 712 respectively, Note that 
the background colour is now stored at address 764, whereas most other modes use address 
71Z, Program 4 is a simple illustration of how to display 9 colours in GRAPHICS 10. The 
DATA statements may be changed to allow any colours you desire, 


GRAPHICS 14 

GRAPHICS 11 is very similar to GRAPHICS 9 except that it allows up to 14 different hues of 
the same luminance, The luminance must be specified using SETCOLOR 4,0,LUM, LUM may 
be any even number from 0 to 14, but the hue parameter must be 0, The COLOR statement is 
used to switch between hues using any value from 0 to 15 as the parameter. These 
correspond to the hues in Table 9.3 of the BASIC Reference Manual, Note however, that the 
background (and hence COLOR 0) is always black regardless of the luminance setting. 
Programs 5 and 4 are the equivalent of Programs 1 and 2 to show how to use GRAPHICS 11, 


1 REM $3333433333334 


Z REM # PROGRAM i 
3 REM # GRAPHICS 9 COLOUR SCALE # 
4 REM # by Garry Francis 4 


5 REM # Published by Atari Computer # 

6 REM # = Enthusiasts (N.S.H.) ¢ 

7 REH ¢ October 1982  # 

8 REX HHHHHHHHRHHHBHEH 

10 GRAPHICS O:POSITION 12,137 "GRAPHIC 
S 9 DEMO"?? {? "When colour scale is d 
Tautiees” 

20? 3?" Press < to decrease HUE"!? 

i?" Press > to increase HUE":? 

30 TRAP 1703? $? “Enter HUE (0-15)"3iI 
NPUT HUE 

40 IF HUE<O OR HUE>I5 OR HUEOINT (HUE) 


THEN 170 

30 GRAPHICS 9:SETCOLOR 4,HUE,0 

60 FOR C=1 TO 15:COLOR C 

70 FOR X=Cx5 TO Cx3+43PLOT X,0:DRANTO 
X, 194 3NEXT X 

BO NEXT C 

90 POKE 764,255 ; 

100 A=PEEK(764)¢1F A=34 THEN 130 

110 IF A=35 THEN 150 

120 COTO 100 

130 HUE=HUE-LTIF HUE<O THEN HUE=15 
140 SETCOLOR 4,HUE,0;GOTO 90 

150 HUESHUE+1;IF HUE>15 THEN HUE=0 
160 SETCOLOR 4,HUE,0:GOTO 90 

170 ? $? “ILLEGAL ENTRY. PLEASE TRY AG 
AIN."S60TO 30 


{ REM HHH HHHHHH HHH 
2 REM # PROGRAM 2 $ 
3 REM # GRAPHICS 9 SHADING + 
4 REM # by Garry Francis $ 
3 REM # Published by Atari Cosputer # 
& REM $# Enthusiasts (N.S.We) 4 
7 REM # October 1982 $ 
8 REM $3t444d3dS4 F434 Bay 
10 GRAPHICS O:POSITION 12,13? “GRAPHIC 
S 9 DEMO"S? 3? "When picture is drawn. 


rT 
x) 


20737" Press < to decrease HUE"S? 
i?" Press > to increase HUE"S? 

30 TRAP 170%? 3? "Enter HUE (0-15)" 33 
NPUT HUE 

40 IF HUECG OR HUD 15 OR HUEOINT(HUE) 
THEN 170 

50 GRAPHICS 9;SETCOLOR 4,HUE,0:C=0 

60 FOR Y=0 TO 194:COLOR CiPLOT 8,YDRA 
WTO 79,Y 

70 C=C+itIF C15 THEN C=0 

80 NEXT Y 

90 POKE 764,259 

100 A=PEEK(764)33F A=54 THEN 130 

110 IF A=55 THEN 150 

120 GOTO 160 

130 HUESHUE-1¢1F HUE<O THEN HUE=15 

140 SETCOLOR 4,HUE,O:GOTO 90 

450 HUESHUE+LSIF HUE>15 THEN HUE=0 

160 SETCOLOR 4,HUE,0{GOTO 90 

170 2 42 "TLLEGAL ENTRY. PLEASE TRY AG 

AIN."3G0TO 30 


{ REN HHH HHHEHHH 
2 REM # PROGRAM 4 + 
3 REM # GRAPHICS 10 DEKO + 
4 REM # by Garry Francis 4 
5 REM € Published by Atari Computer # 
6 REM # =Enthusiasts (N.S.W.) 3 
7 REM 4 October 1982 % 
6 REM HIHHHHHHHHHHHHHH 
10 GRAPHICS 10:POKE 704,14 

20 FOR I=1 TO S$READ ASPOKE 704+1,A5CO 
LOR I 

30 FOR X=Ixi0-10 TO Iai0-13PLOT X,03DR 
ANTO X,194:NEXT XINEXT I 

40 GOTO 40 

50 DATA 54,40,28,182,116,48,60,8 


1 REM SHEEHY 
2 REM 4 PROGRAM 5 $ 
3 REM # GRAPHICS 11 COLOUR SCALE # 
4 REM ¢ by Garry Francis 4 
» REM # Published by Atari Computer 4 
6 REM # ~— Enthusiasts (N.S.N.) 4 
7 REK F October 1982 # 
8 RO HHH 
10 GRAPHICS @:POSITION 12,13? "GRAPHIC 
S 11 DEMO"S? 3? “When colour scale is 
CGrawnee +” 


20739." Press < to decrease LUNINAN 
CE"3? 32." Press > to increese LUMINA 
NCE" I? 

30 TRAP 17037 3? “Enter LURINANCE (eve 
n Nos 0-14)"3 INPUT LUM 

40 IF LUM<0 OR LUADL4 OR LUMO INT(LUM) 
OR LUM/2INT(LUH/2) THEN 176 

50 GRAPHICS 1:SETCOLOR 4,0,LUM 

60 FOR C=1 10 15;COLOR C 

70 FOR X=Cx5 TO CxS+4:PLOT X,01DRAWTO 
X,1913NEXT X 

80 NEXT C 

90 POKE 764,255 

100 A=PEEK(764) {IF A=34 THEN 130 

110 IF A=So THEN 150 

120 GOTO 100 

130 LUM=LUM-2;1F LUMSOG THEN LUM=14 

140 SETCOLOR 4,0,LUM‘GOTO 90 

150 LUM=LUM#2¢1F LUM>L4 THEN LUAED 

160 SETCOLOR 4,0,LUM:GOTO 90 

176 7 $2 “ILLEGAL ENTRY. PLEASE TRY AG 
AIN. {GOTO 30 


1 REM SEES3RS SSS EES) dE 


7 REM ¢ PROGRAM 6 # 
3 REM # GRAPHICS 11 SHADING ? 
4 REM + by Garry Francis ? 


3 REM # Published by Atari Computer # 
4 REX # Enthusiasts (N.S.H.) # 
7 REK # October 1982 $ 
8 REM HHH 
10 GRAPHICS O:POSITION 12,1:7 “GRAPHIC 
S 11 DEMO"? 3? “when picture is drawn 
20737" Press < to decrease LUMINAN 
CE"3? 3?" Press > to increase LUMINA 
NCE"3? 

30 TRAP 1703? $? “Enter LUMINANCE (eve 
n No. 0-14)" INPUT LUM 

40 TF LUMO OR LUD14 OR LUMC>INT(LUM) 
OR LUM/2INT(LUM/2) THEN 170 

50 GRAPHICS 11:SETCOLOR 4,0,LUMiC=0 

60 FOR Y=0 TO 191:COLOR C3PLOT 0,Y:DRA 
WTO 79,Y 

70 C=C+itIF (215 THEN C=0 

80 NEXT Y 

90 POKE 744,255 

100 A=PEEK(764)3IF A=54 THEN 130 

110 IF A=55 THEN 150 

120 GOTO 180 

130 LUM=LUH-Z¢IF LUM<O THEN LUM=14 

140 SETCOLOR 4,6,LUMSGOTO 90 ; 

150 LUM=LUM+LSIF LUMO14 THEN LUM=0 

140 SETCOLOR 4,0,LUM;GOTO 90 

170 ? 3? “ILLEGAL ENTRY. PLEASE TRY AG 
AIN."GOTO 30 


i REM dhl billiihlhichdihbibied 
REM PRIRAK 3 + 
4 256 COLOURS IN GRAPHICS 9 4 
M4 by Garry Francis 3 
# Published by Atari Computer $ 
# = Enthusiasts (N.S He) + 
October 1982 q 
8 REK HHHHHHHHHHHRHAHHH 
9 REM xxx SET DLI BIT FOR EVERY 12th L 
INE OF GR.9 DISPLAY LIST xxx 

10 GRAPHICS 9iPOKE 54284,44:DL=PEEK (54 
0)42562PEEK (541) 

20 FOR I=0L+14 TO DL+89 STEP 123POQKE I 
1433NEXT I 

30 FOR I=DL+102 TO DL+i86 STEP 12$POKE 
I, 443iNEXT T 

39 REM xxx STORE DLI SERVICE ROUTINE I 
N PAGE 4 xxx 

40 FOR T=1534 TO 15403READ AIPOKE T,Ai 


- 


NEXT ISPOKE 512, 0:POKE 513,6 
50 DATA 72,24,173,24,4) 105,16, 141, 10,2 
12,141,26,289,201,240,208,2,149,0,141, 
24,6,104,64,0 
59 REM xxx S] 
qTIr 

60 FOR T=1541 TO L578:READ AIPOKE 1,A? 
NEXT I 

70 DATA 104,169, 0,141,24,4,145,20,197, 
20,240, 252, 169,192,141, 14,212,96 

79 REM Rx DRAY VERTICAL BARS IN 14 LU 
MINANCES xxx 

80 FOR C= TO 15:COLOR CIFOR X=Cx5 TO 

Sr X,QSDRANTO X)191:NEXT X{NEX 

89 REM Xxx WAIT FOR VERTICAL BLANK BEF 

ORE ENABLING DLI’S xxx 

90 X=USR(1561) 

100 GOTO 100 


ORE USR ROUTINE IN PAGE 4 


$100 
110 
4126 
0130 
0140 
bi50 
0160 
b176 


PRHAHHBHIHHAHHEHH 
$$ SOURCE CODE FOR MACHINGC §s# 
}# LANGUAGE STUFF IN PROGRAM 3 # 
#4 by Garry Francis $ 
$# Published by Atari Computer # 
$# Enthusiasts (NSH) t 
it October 1982 + 
(4 A RH 


0180 } 


0190 


$DLT ROUTINE TO GET 254 COLOURS 


0200 iON THE SCREEN IN GRAPHICS ? 
0210 3 
DOIA 0270 COLBK = $0044 
D40A 0230 WSYNC = $D40A 
0000 1240 x= $0600 
0400 48 §250 PHA ;Save accumulator 
$401 18 0260 CLC :Prepare for addition 
0402 ADI804 0270 LOA COUNTR Get current colour 
0405 6910 0280 ADC #910 Increment left nybble (i.e, hue) 
0407 SDOAD4 0290 STA WSYNC wait for horizontal blank 
040A SDiADO 0300 STA COLBK ;Store colour in background register 
04600 C9FO 0310 CMP $F tIs hue at maximus? 
Q460F DOOZ 0320 BNE END tNo.esleave colour as is 
$611 A900 = ©0330 LDA #0 sYes,+-treset colour to zero 
1613 801806 0340 END STA COUNTR Save new colour in RAM counter 
04146 48 0350 PLA sRestore accumulator 
0617 40 1340 RTI sReturn from interrupt 
0418 00 $370 COUNTR .BYTE 0 ;RAM counter to hold colour value 
0380 ; 
0390 ;USR FUNCTION TO WAIT FOR VBLANK 
0400 ;BEFORE ENABLING DLT 
0410 } 
0014 #420 RICLOK = $14 
DANE 0430 NMIEN = $D40E 
0619 48 0440 PLA :Pull no. of arguments off stack 
041A AICO ©0450 LOA #0 $Zeto thers. 
O41C 801804 0440 STA COUNTR = }4++RAM counter 
D4iF ASI4 0470 LOA RTICLOK Get LSB of real time clock 
0421 (514 0480 WAIT CHP RTCLOK = Has it changed? 
0623 FOFC 0490 BEQ WAIT jNo.s etry again 
0425 AICO §=—-:0500 LDA #5C0 fYes.eetherefore must be in vertical blank 
0427 8D0ED4 0510 STA NMIEN sEnable DLI 
142A 60 9520 RTS ;Return to BASIC 
§42B 0530 +END 


RAMSEY’S RAMBLINGS 
Keyboard Organ, String Graphics & GTIA Demo 


by Gregg Ramsey 


This month I have some reasonable programs to share with you, but I may have had some 
better ones if I’d been able to find some more time to use my computer. I recently purchased 
a Disk Drive and would like to mention that it has been an investment second only to the 
ATART itself. There are many reasons for this. The first and most obvious reason is the 
speed. I have "Rescue at Rigel" on tape and had stopped playing it since it took a whopping 
seven minutes to load (not to mention finding and positioning it), I made a backup copy of it 
on disk and found that it took a mere eighteen seconds to load. Another plus for the disk is 
that it keeps its own directory - meaning that I don’t have to fiddle about with loose scraps 
of paper any more. One more great feature is that when I’m writing long programs (such as 
these articles); I can constantly SAVE it. When I was writing the last article with the 
cassette, the computer took a sicky a few times and I lost everything. Well, my worrying is 
now much less and a whole new range of software is now open to me — including other 
languages. So I just want to say that a Disk Drive is really worth the money even if it 
sounds like a lot, 


LISTING 13 ORGAN 

Firstly, I would like to have a little pick at the BASIC Reference Manual. In case you hadn‘t 
noticed, it has some demo programs in Appendix H. One in particular on page H-15 is called 
"Type-a-Tune". Well; this isn’t a bad gripe, it’s just that I don’t think they’ve done itina 
very efficient way. They chose to define two arrays — one to hold the values of PEEK(7464) 
and the other to hold the notes. It holds 12 notes so that every time you press a key, it goes 
through a FOR+.NEXT loop of order 12 to find the relevant value. My method uses one array 
with the element numbers carresponding to the PEEK(764) values and containing the pitch 
required should that number arise. This means that it’s just as fast to have a 3 key piano (in 
BASIC) as it is to have 756 keys. It also means that extra notes can easily be added. 
Instead of a FOR...NEXT loop dependent on the number of notes required, this method only 
needs the statement? 

SOUND 0,TUNE(PEEK(764)),10,8 

where TUNE() is the array holding the notes. In my program, there are two full octaves and 
all their sharps and flats and a neat little spruce—up feature called RESONATE, whereby 
pressing the SHIFT key with the note key adds a second voice offset by a pitch value of 1, 
Make sure you type the underlined characters in INVERSE video. Another feature is that the 
program prints the pitch value of the note currently being played. This is so that you can 
familiarise yourself with these numbers and eventually learn them so that you won’t need to 
look up those tables, 


I have translated some tunes into the "Organ language" to get you started, It is initially 
quite difficult to read, but after a little while, I’m sure you’ll get the hang of it. Just press 
each of the keys shown in turn. The timing will come to you naturally. A slash indicates a 
pause, 


Jingle Bells 
000/000/0-UVIO/PPRP/PPOO/OOIIOI- 


0900/000/0-UIO/PPP/PPOO/Q--PIU 


Mary Had A Little Lamb 
WQTABQWWW/OQQOQ/WRR 


W Q TABQ WW W/W QQWQTAB 


Knuckles 
45 6/8 8/45 6/8 8/6 5 4/2 2/6 5 4/2 2 
4546/88/45 6/8 8/U BIPCCKE 


Clese Encounters (make sure you do this with RESONATE on) 


ITOUTABR 


Star Wars 

U-/POILOWR -/POILOWR-/POPI 
U-/POITLOWR-/POILOWR-/POPI 
RT/POIUUIOITY 

RT/POIU-I 

RT/POIUVUIOITY 

-- LOWR BS>-P9IU/----/- - - -/(repeat) 





Program Description 

Line 10! Goes to initialisation subroutine, 

Line 20: Location 53775 is a hardware register called SKSTAT (Serial Port - Keyboard 
Status [$D20F]), It returns 255 if no key is pressed, 251 if any key except SHIFT is 
pressed, 247 if only SHIFT is pressed and 243 if SHIFT and another key are pressed 
together, 

Line 303 Sets up a variable B containing the value of memory location 764 and then plays the 
note with a PITCH value obtained from the array element TUNE where the element 
number is B (wow!) 

Line 40! Makes the sound and prints its pitch value, 

Lines 50-60! The RESONATE part. If the SHIFT key is pressed, sound register 1 plays a 
pitch of one greater than register 0. 

Line 70} Turn sounds off if no key is pressed, 

Line 1003 Disable break key so that you don’t accidentally bomb the program when pressing 
keys near it, ; 

Lines 110-1203 Set up colours and turn cursor off, 

Line 140! DIMension the array to hold the pitch values. For example, if we want the TAB 
key to play a C (PITCH=243), then we assign 243 to the element whose number is the 
same as the number returned by PEEK(764) when the TAB key is pressed (double wow!), 

Line 1503 Set all the elements to zero. 

Line 160: Read the element numbers and the corresponding PITCH valves and put them in. 

' Notice that for each PITCH, there are two array element numbers, This is for the 
benefit of the RESONATE function because PEEK(764) returns a different value when 
the SHIFT key is being held down, 

Lines 200-280! Print a picture of the keyboard on the screen. The keyboard is laid out like a 
piano keyboard except that the last C had to go on the CAPS/LOWR key, Tough luck. 

Lines 300-3203 The data. Make sure you get them all right and don’t leave spaces as it will 
be interpreted as string data and you'll get an ERROR - 8, 


LISTING 2! STRING GRAPHICS 
The next program I want to share with you has a neat technique for doing intricate pictures 
where most of the dots next to each other are a different colour and the PLOT and DRAWTO 
commands would take up too much memory. Have you ever tried something like... PRINT 
#4;"HELLO" in say GRAPHICS 5, Well if you have, you would have noticed that it would have 
obeyed you like a slave and printed them there except that they were dots (of course) and not 
letters. If you do a little experimenting, you will find that if you PRINT an A, a dot coloured 
by colour register 0 appears, a B is coloured by register 1, aC by register 2 and D by 
register 4 (the background colour), The program DIMensions one string variable A$ to hold 
the line of text to be printed, There is a loop using ATARI’s neat feature of enabling it to 
GOSUB to expressions as well as numbers. It will GOSUB or GOTO anything that evaluates 
to an integer. Well, this expression GOSUBs lines to fetch values for A$, starting at line 
1000 and incrementing by 10 to 1010 then 1020 and soon. This program draws the ATARI 
logo in 4 GRAPHICS modes, Notice also that you can press the number of the GRAPHICS 
mode that you want while the program is running and it will automatically change over, 
Using this technique, I made a program that draws a very detailed picture of Snoopy and his 
little friend Woodstock in GRAPHICS 7, It filled up a lot of the screen but is too large for 
this article. 
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Procram Description 

Line 103 DiMension the string to held the pixel data, 

Line 20! Select GRAPHICS mode from the value of GR (this is set in lines 600-630), then 
colour everything black. 

Lines 30-60! Prints the picture to the screen with the top left hand corner pcsitioned at 
(X,Y), 

Line 70! Clear the character buffer. This is necessary because in the next loop, I check to 
see if a key is pressed, If I didn’t clear it, the key last pressed would be ready and 
waiting and there would be terrible confusion, 

Lines 80-90! The final loop. This rotates the colours of the picture to give it some 
character. It also checks to see if a key has been pressed. If it has been, then the 
program goes to check which key it was from line 590 onwards and determines a course 
of action, Note that REG is a variable containing the colour register to POKE, This 
stays at 708 unless GRAPHICS 8 is selected in which case it changes to 709. There is 
also a delay loop so that the colours dont flash past too quickly. 

Lines 500-580! Prints instructions, 

Line 590} Opens the keyboard as an input device and sets REG to its default value of 708. 

Lines 600-6303 Scans the keyboard until one key is pressed and gets its ATASCII value, 
Sets up variables for the GRAPHICS mode selected and hands control over to the main 
program at Line 20. 

Line 640} If it gets to here, the wrong key was pressed so go back and get another key at 
line 600, 

Lines 1000-1110! The data for A$, Feel free to put whatever picture you desire in here and 
see what it looks like in the different GRAPHICS modes, 


LISTING 31 GTIA DEMO 

The basic theme of this month’s issue is the GTIA chip. Since its secrets have been revealed 
elsewhere and there are lots of demos, I didn’t think that I could add much light ta the topic, 
although I did dig up one demo involving all three of GTIA’s extra GRAPHICS modes, This 
program shows virtually infinite variations of colours and shapes but I must.add that I can’t 
claim fame to the guts of the program, I saw it at Computer Wave and still don’t know the 
author. I added the instructions and the optional GRAPHICS modes, The part that puts all 
the colours onto the screen so nicely is the COLOR statement in line 120. A neat feature is 
that you can view pictures in GRAPHICS 8, 9, 10 and 11, In GRAPHICS 8, you will notice 
some nice artifacting (see Issue No. 1), as the points are individually plotted next to each 
other. When the picture is being drawn you can press CTRL 1 to stop and start or the START 
key to get back to the instructions, When you start the program; you will be asked to enter 2 
numbers (seeds), The first number must be greater than 0 and less than 13000. Each number 
represents a "page" of the picture, iv. if you enter 1 for the start and 10 for the end, then 
you will get 10 pictures, The second number must be greater than or equal to the first so if 
you only want to see picture number 20, type 20 for the beginning and end, The program then 
asks you for a GRAPHICS mode, You can select anything from GRAPHICS 8 to 11, 


Program Description 
Line 100! Initialise. Go and get the GRAPHICS mode we’ll be working in and the start and 


finish seeds, 

Line 1103 Checks to see if the START key is pressed. If it is then RUN the program again. 

Line 120: The complicated COLOR statement, Without this, the program would be nothing: 
Try changing the expression around to get even more patterns, 

Lines 130-140! The almost equally complicated plotting part, It plots 8 points at a time 
starting from each corner to get symmetry. 

Line 150) Finish off and then click the internal speaker, 

Lines 160-170! The end loop. You can either watch the picture until your heart’s content or 
press START to go back to the instructions and have another try or look at the same 
pictue in a different GRAPHICS mode. Strangely enough there is an easier way to 
observe the same picture in a different GRAPHICS mode. If your picture was in 
GRAPHICS 10 and you want to see what it looks like in GRAPHICS 9, then press the 
BREAK key and add the following 2 lines to the program. Do not RUN it, but enter 
GOTO 2000 in direct mode. 

2000 ? CHR$(125GRAPHICS 9+32 
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2010 GOTO 2010 
The 7 CHR$(175) is there to clear the muck at the bottom since GRAPHICS 0 and $ share 
the same display memory. 

Lines 1000-1100! These are the lines that get the input. Notice the use of the handy TRAP 
statement to check for idiot input, 

Line 1110! The variable D is only used in GRAPHICS 8 to offset the picture so that it 
becames centred. If GRAPHICS 8 is selected then start the picture 120 pixels to the 
right of the origin. This value gets added to each X-point plotted. CONSOL is 
ATARI’s label for the hardware register that reads the console keys. 

Line 1120! Poke the colours in and put us into the desired GRAPHICS mode. 


That concludes my article for this month, I hope that you’ve got a little something out of it, 
because I certainly did in the process of writing it. Next issue is FUN issue because the 
theme is GAMES, I hope to have a game or two. If you’ve written any games, then I urge you 
to submit them to the Editor. They may contain a programming technique or an idea that not 
many people are familiar with, 50 get ’em in (or start writing). 


This is Gregg Ramsey saying good bye for now! 


M SET ALL NOTES TO PITCH=0 


1 REM HHH 

2 REM 4 LISTING 1! ORGAN r 160 READ K1,K2,N{IF K1<O-1 THEN TUNE(K 

3 REN by Gregg Ramsey FY L)=NITURE(K2)=NSGOTO 160 

4 REM # Published by Atari Computer 4 199 REM Xxx PRINT TITLE AND PIANO KEYS 

5S REX # Enthusiasts (NSW) 9 # a 

& REM # October 1982 3 200 POSITION 13,33? “Organ Player” 
210 POSITION 7,432"12 456 89 


7 REM #483434 


10 GRAPHICS O:GOSUB 1003REM INITIALISE < > BS" 
19 REM wor THIS IS THE MAIN LOOP xxx 220 POSITION 4,83? "TABQ WERTYU 
1 0 P - = RET" 


20 A=PEEK(SKSTAT) SIF A243 AND A251 
THEN 20 


30 B=PEEK(744)3IF TUNE(B)=0 THEN 20 
40 SOUND 0,TUNE(B),10,83PQSITION 22,12 
3? TUNE(B);" " 

50 IF PEEK(SKSTAT)=243 THEN SOUND 1,TU 
NE(B)+1,10,83G0TO 30 

60 IF PEEK(SKSTAT)=251 THEN SOUND 1,0, 
0,0:G0T0 30 

70 SOUND 0,0,0,03SOUND 1,0,0,0POSITIO 
N 22,4123? "0 "SG0TO 20 

79 REM xx INITIALISATION xxx 

100 POKE 14,443POKE 53774,1193REM DISA 
BLE BREAK KEY 

110 POKE 709,2SPOKE 710,12$POKE 712,54 
*REH POKE COLOURS IN 

120 SKSTAT=33779 SPOKE 792,1 

130 POSITION 13,33? "Setting up..." 
140 DIM TUNE(255) REM HOLDS NOTES 

150 FOR T=0 TO 2553 TUNE(T)=03NEXT TIRE 


EFGA B" 
240 POSITION 31,113? "LONR” 

250 POSITION 16,12!? "PITCH=0" 

260 POSITION 32,121? "C" 

270 POSITION 4,143? "SHIFT" SPOSITION 3 
1,143? "SHIFT" 

280 POSITION 4,15!? “RESONATE" $POSITIO 
N 28,152? "RESONATE" 

290 RETURN 

297 REM xxx DATA FOR KEYS & NOTES xxx 
300 DATA 31,95,230,30,94,204,24,88,173 
429 VB y 153 27 p91 136 5 53y 117 114,48, 112 
102,54, 118,85,55, 119476 ,52)116,68 
310 DATA 44,108,243,475111,217,46,110, 
193,42, 106,182, 40 ,104,162,45,109,144,4 
3y107,128,11,75)121 13,77 108 

320 DATA 8,72,96,10)74,91,14,78,81 ,15, 
7947241276 64,60 412460 ,~1,0,0 


...STOP PRESS... 


Unfortunately, our regular columns (i.e. Copyright Law and Odds & Sods) 
and a couple of articles were squeezed out of this issue due to the 
sheer bulk of the material on GTIA. They will now appear in the next 


My apologies to the authors concerned. 
- The Editor 


issue, 
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1 REM $¢b44944449245 52255 222455242 4 
2 REM $ LISTING 2! STRING GRAPHICS 4 
3 REM ¢ by Gregg Ramsey b 3 
4 REM % Published by Atari Computer # 
5 REN # Enthusiasts (8.S.W) q 
6 REM # October 1982 3 
7 REK PHAR HHHEERH 
1@ DIK A$(16):GOTO SOO 3REM INITIALISE 
20 CLOSE #i$GRAPHICS GR+iGiSETCOLOR 0, 
BOSSETCOLOR 1,0,0SSETCOLOR 2,0,6 

30 FOR T= 10 ii 

49 COSUB 1000+Tx10 

50 POSITION X,Y+Ti? $63,A$ 

60 NEXT T 

70 POKE 744,2503REM CLEAR KEYBOARD BUF 
FER 

80 FOR T=0 70 2553IF PEEK(764)259 TH 
EN 590:REM ROTATE COLOURS AND CHECK FO 
R KEY PRESS 

90 POKE REG, T3FOR U=0 TO 103NEXT USNEX 
T T3COTO 80 

500 GRAPHICS O:POKE 752,13PQSITION 10, 
13? “STRING GRAPHICS DEMO" 

510 2 3? "Select a GRAPHICS mode...” 
520 7 $2" 3 for GRAPHICS 3” 

5330.2" 3 for GRAPHICS 5" 

340 2" 7 for GRAPHICS 7" 

550 7" 8 for GRAPHICS 8" 

540 POSITION 2,163? “When running..." 
5370737" Press 3, 5, 7 or 8 to sele 
ct"3? "| another aode." 

3807 i?" Press any other key to sto 
p colours"3? “ changing." 

596 OPEN #1,4,0,"Ki"SREG=708:REM OPEN 
KEYBOARD FOR INPUT 

600 GET 41,KiIF K=51 THEN GR=3:X=12%Y= 
S:GOTO 20 

610 IF K=53 THEN GR=3$X=32°Y=14;0070 2 
Q 

420 IF K=50 THEN GR=7$X=723Y=38:G0T0 2 
0 

630 IF K=56 THEN GR=83X=152¢Y=82REG=7 
bF;GOTO 20 


640 GOTO 600 

1000 A$=" AAR A "SRETURN 
1010 As=" AAA "SRETURN 
1020 As=" AAR A "SRETURN 
‘1030 Ass" AAA "SRETURN 
1040 A$=" ARAA “SRETURN 
1050 A$="" AR AA AA SRETURN 
1060 AS="" AA AA AA SRETURN 
1070 A$="" AA AA BAO SRETURN 
1080 AS="" AAR AA AAA" SRETURN 
1090 AS="AAAA = AA AARA' RETURN 
1100 AS="AAAA = AA. AABAN RETURN 
1110 AS="AA AA AA" SRETURN 
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| REM 22342223 44E2E459543 335 p44 
2 REM # = =©LISTING 33 GTIA DEMO # 
3 REM 2 by Cregg Ressey a 
4 REM # Published by Atari Computer # 
3 REM # = Enthusiasts (N,S5.H,) + 
& REM # October 1982 + 
7 REM $F BHRHRAHHSHESH 
109 GOSUB 1000°FOR =A TO BSFOR I=1 To 

S73FOR 0 10 39tK=I+J 

110 IF PEEK(CONSOL)=4 THEN RUN 

120 COLOR J3/(14+3)4+00W/83REN COLOR R 
DUTINE (THE GUTS OF THE PROGRAM) 

130 PLOT I+tD,Kx2:PLOT K+D,IxZ$PLOT s0- 
I+), 160-(K22) {PLOT 80-K+D, 160—-(Ix2) 
140 PLOT K+D,160-(I%2)3PLOT 80-1+D,Kx2 
tPLOT I+D,160-(K"2)$PLOT 80-K+D, Ix? 
150 HEXT JINCXT TINEXT WIPOKE CONSOL,O 
140 IF PEEK(CONSGL)=6 THEN RUN 

170 GOTO 140 

1000 GRAPHICS O:DIN B$(37) Be" 

"SREM 37 

BLANKS 

1010 POSITION 15,1:? "CTIA DEMO" 

1620 POSITION 2,183? "When running..." 
1030 7 3?" Press CTRL 1 to freeze di 
splay."3? {?" Press START to get bac 
k here," 

1040 TRAP 10403POSITION 2,33? BS$SPOSIT 
ION 2,33? “Enter first seed (0-13000)" 
;tINPUT A 

1050 IF A<0 OR A>13000 OR AOINT(A) TH 
EN 1040 

1060 IF A=13000 THEN B=A;GOTO 1090 
1070 TRAP 1070POSITION 2,53? BS$PQSIT 
TON 2,53? “Enter second seed (";A}"-13 
000)"$SINPUT B 
1080 IF B<A OR B>13000 OR BOINT(B) TH 
EN 1070 
1090 TRAP 1090$POSITION 2,73? BSiPOSIT 
ION 2,73? "Enter GRAPHICS mode (8-11)" 
}SINPUT GR 
1100 IF GR<8 OR GRo11 OR GROINT(ER) T 
HEN 1990 
1110 CONSOL=53279:D=03IF GR=8 THEN D=1 
20 
1120 POKE 704, 03GRAPHICS GRtid:POKE 71 
0,02IF GR=i0 THEN FOR I=705 TO 712:POK 
E T,RND(O)x255 NEXT I 
1130 RETURN 


GTIA DEMOS 


by Garry Franas 


I searched high and low for some programs to illustrate the use of GRAPHICS 9, 10 and i, 
Even though the search was more than successful, I found that everybody seemed to have a 
sub-set of the same group of programs, It is fairly certain that they originated somewhere 
at ATARI, but unfortunately, the author is completely unknown. I suspect that it may be Bill 
Carris, who has done several demos for the ATARI, but this is only a hunch, If the original 
author comes forward, we will certainly give him or her credit. 


I would particularly like to thank the following sources for making these programs available! 

~ Creative Computing June 1982 for-Beach Ball, Brass, Escape, Hypnosis, Psychedelic, 
Rolls, Sas, Water Melon and Whirl, (Note that I have renamed some of the programs 
to better describe their appearance.) 

~ Melbourne Atari Computer Enthusiasts for Brass, Cone, Dizzy, Escape, Grenhole, 
Hypnosis, Poles, Rolis, Stripes, Water Melon and Whirl, 

~ The guys in the Computer Department at Futuretronics for Beach Ball, Brass, Cone, 
Dizzy, Escape, Grenhole, Hypnosis, Poles, Psychedelic, Rolls, Sas, Stripes, Water 
Melon and Whirl, 

- The Atari Connection Vol.Z No.2 for Hypnosis, 


If you have any early versions of these programs; you might as well throw them away, The 
versions here have been totally re-written, but all retain the original concept. In most 
cases, you won‘’t even recognise the code when compared to the original. The aim of the 
improvements was to} 

- make the demonstrations aesthetically more pleasing, both in their final appearance 
and in the way they were drawn up (this included size, shape, symmetry, position on 
screen, colours used and elimination of flaws and "holes" in some patterns) 

- speed up the execution 

- provide more elegant coding, uniform use of variable names and overall improvement 
in understandability 

~ improve the algorithms used and eliminate several unnecessary steps 

- cut dawn on memory requirements 

- take up less room in the magazine 


Unfortunately, INSIDE INFO has a deadline to meet, so I was under pressure to complete ZO 
or sO pragrams within 2 weeks, Because of this, they could probably be tightened up even 
more, but that option is on you, 


Several of the programs (viz. Dizzy, Escape, Grenhole, Hypnosis, Poles, Sas, Stripes and 
Whirl) use a short machine language subroutine. You may easily pass this off as being the 
reason for the spectacular displays. Not so! It is merely a simple colour rotation routine 
which could just as easily have been done in BASIC (in fact it is done this way in Beach Ball, 
Psychedelic and Rolis) In some cases, the colour rotation appears "jerky" if done in BASIC. 
This is when the machine language routine comes in handy. Just to prove how simple it is, 
I’ve given its assembled source code for those that are interested, Note that there isa 
“glitch” in the routine, whereby you will occasionally get a flash of black in one of the colour 
registers (it only lasts 1/50 second), This is probably related to bad syncronisation with the 
vertical blank, 


I've put a lot of time into these programs, so let’s not waste any more by talking about them, 
Screw your eyeballs in tight and prepare yourself for a psychedelic trip that no drug could 
provide! Don’t leave any of the programs out thinking that they look the same, because I can 
assure you they are all totally different. 
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Notes 
When you run Beach Ball, stand a long way back from the TV. If you feel the colours are too 


harsh or gaudy, change the DATA statement in line 50 to read} 
30 DATA 24,56,72Z,88,136,168,184,216 


Dizzy is particularly interesting, because it shows a simple method of providing text ona 
graphics screen. I lifted the idea from IRIDIS 1, It could easily be expanded to allow extra 


functions (such as fill, change colour or set a new origin) for drawing all sorts of pictures, 


Most of the programs display something almost immediately, but Sas takes about 7 seconds 
to initialise, 


0100 }#HHHHHHHIHHHHHH 
0110 34 COLGUR ROTATION SOURCE CODE # 
0120 34 by Garry Francis # 
_ 01390 $4 Published by Atari Computer # 
0140 }# Enthusiasts (N.S,H.) 3 


D150 34 October 1982 # 
0160 88d HH 
0170 3 


0180 }MACHINE LANGUAGE SUBROUTINE TO ROTATE ALL COLOURS (EXCEPT THE 
0190 ;BACKGROUND) IN GRAPHICS 10, 


6200 } 
0210 ;CODE TS FULLY RELOCATABLE AND WOULD NORMALLY BE STORED IN A STRING 


0220 }WHEN USING BASIC, STRING HUST BE DIMENSIONED TO 21, e.g. DIM A$(Z1). 
0230; 
0240 $CALL FROM BASIC USING! 
0250 } X=USRCADR(A$)) 
; 


0260 
0000 0270 x= $600 ;Page 6 used to assemble program for convenience only 
02C1 0280 PCOLRI = $02Ci sPlayer 1 shadow register (decinal 705) 
0202 0290 PCOLR2 = $02C2 }Player 2 shadow register (decimal 704) 
§2C8 0300 COLORA = $0208 sBackground shadow register (decimal 712) 
0310 } 
0400 48 0320 PLA 3Pull no. of arquments off stack 
0401 A200 0330 LOX #6 sInitialise counter 
0403 ACCi02 9340 LOY PCOLRi Save for later 
0404 BDC282.0350 LOOP LDA PCOLRZ,X jMave colours downess 
0409 9DC102 0360 STA PCOLRI,X fone address 
040C £8 6370 INX }Incresent counter 
0400 £008 0380 CPX #8 sReached maxisua? 
O40F 90F5 0390 BCC LOOP tNoeeedo it again 
0411 8CC8b2 0400 STY COLORS {Yes..sput old PCOLRI into COLOR4 
0614 40 0410 RTS ;Return to BASIC 
0415 0420 +END 
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LRM PHHEHHBRRHIHHHH 

2 REM # DIZZY § 

3 REK # Origins] aythor urenown = # 
-4 REM $ Hodified by Garry Francis # 

5 REM # Published by Atari Computer 4 

& REM # «Enthusiasts (N.S.W.) # 

7 REM 4 October 1982 4 

8 REM #4444424 HHHHHHRHBH 

10 GRAPHICS 10°FOR I=1 10 8:READ AtPOK 

E 70441, 50+A:NEXT I 

20 DATA 2,456,8,10,8,6,4 

30 C=1:FOR Y=0 TO 191SCOLOR C3PLOT 0,Y 

SDRANTO 79,191-Y 

40 C=C+0,41664446731F C>8 THEN C=1 

50 NEXT Y 

60 FOR X=79 TO 0 STEP -1;COLOR CiPLOT 

X,OSDRANTO 79-X,191 

70 C=C+isIF C>8 THEN C=1 

BO NEXT X:DIM &$(11),C$(1) 

90 COLOR OSXORG=31 5 YORG=75 BS="ATART": 

GOSLB 150 

100 XORG=23: YORG=87 ?B4="COMPUTER" } GOSU 

B 158 

110 XORG=19YORG=79 {BS="ENTHISIASTS' iG 

QSUB 150 

120 XORG=28s YORG=112SBS="(NS.H. GOS 

UB 150 

130 GOSUB 1000 

140 X=USRCAOR(A$) SFOR I=1 TO S;NEXT I 

iGOTO 140 

156 FOR I=i TO LEN(R$)$RESTORE 200+ASC 

(8$(1)) 

140 READ C$,X,Y3IF C$="P" THEN PLOT XO 

RG+X, YORG+Y3GOTO 160 

170 IF C$="D" THEN DRAWTO XORG+X, YORG+ 

YiGOTd 140 

180 IF C$="E" THEN XORG=XORG+XNEXT I} 

RETURN 

240 DATA P41,-3,D)0,-3,D.0,9,D,1,9,E 92 

0 

241 DATA P,-1,-35D,0,-3,0,0,9,D,-1,9,E 

12,0 


246 DATA P,0,5)P)6,6,E,2)0 

265 DATA P,0;6,D,0,0,D,2,0,0,2,4,P,1,3 
Ey 4,0 
267 DATA Py210,D,6,0,D,0,6,0,2,6,E 5440 
249 DATA Po2+04D)0504D,0,6,D,2,6yP 4143 
1£,4,0 

272 DATA Py0,0,D40,6,Py2y0,D,2,6,Py143 
1E,4,0 


273 DATA P,0,0,0,0,6,E,2,0 

277 DATA Py0,6,D,0,0,D,4,0,0,4,6,P 52,0 
1D,246,E 96,0 

278 DATA P,0,6,0,0,0,; 
279 DATA Py0,0,D,0,4, 
1E 54,0 


oo 
~ 

mM 
~~ 
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280 DATA P,0,6,D,0,0,D,2,0,D,2,3,0,0,3 
E440 


9D,2,0,E,650 

1000 DIM AS(Z1) RESTORE 1020 

1010 FOR I=1 TG 21;READ ASAS(I)=CHRS(A 
YINEXT TSRETURN 

1020 DATA 104,162,0,172,193,2, 189,194, 
2,157 193,25 232,224 8,144,245, 140,200, 
2,96 


1 REM $492449494444544434343244345444 
2 REK # ESCAPE $ 
3 REM # Original author uranown # 
4 REM # Modified by Garry Francis 4 


5 REM # Published by Atari Computer # 
6 REN # = Enthusiasts (N.S.W.) + 
7 REM # October 1982 $ 


8 REN HHH AHHRARAH 
10 GRAPHICS 10 

20 FOR I=705 TO 7123READ ASPOKE I,224 
ASNEXT I 

30 DATA 254,6,856,452,0 

40 C=1:FOR I=0 TO 38:COLOR Cix=1iY=Ix2 
PLOT X,Y:DRAWTO 79-X,Y 

58 PLOT X,Y+1:DRAWTO 79-X,Y+1 :DRAHTO 7 
9-X,190-YSDRAWTO X,190-Y 

60 PLOT 79-X,191-Y3DRANTO X,191-Y SDRAW 
TO X,Y 

70 C=C+HitIF C>8 THEN C=1 

80 NEXT TiGOSUB 1000 

90 X=USR(ADR(AS) {FOR T=1 TO 24:NEXT I 
GOTO 90 

1000 DIM A$(21)$RESTORE 1020 

1010 FOR I=1 10 213READ AtA$(T)=CHRS(A 
YINEXT ISRETURN 


1020 DATA 104,162,0,172,193,2,189,194, 


241575193, 2,232,224 8,144,245, 140,200, 
2,96 


L REM $838d222343 33H HHBA 


2 REM 4 BRASS 4 
3 REM $ Original author unknown + 


4 REM # Modified by Garry Francis # 
3 REM $ Published by Atari Computer # 
& REX # Enthusiasts (N.S.H,) + 
7 REK F October 1982 + 
8 REA #HHHHEHHHHEHEH 
10 GRAPHICS 9:SETCOLOR 4,15,0 

20 FOR Y=@ TO 55 STEP 113FOR I=0 TO 24 
*C=T43:IF (15 THEN C=30-C 

30 X=Y+IA=SOR(144-(1-12)8(1-12))/2 
40 COLOR 146-CiPLOT X,2"Y+6-AiDRAHTO X, 
2RY+6tA 

50 COLOR CIDRAWTO X,Y+i30+AtNEXT ISNEX 
TY 

40 GOTO 40 


1 REX SHHHHHHHHHHHHHHH 
2 REM # WHIRL 4 
3 REX # Original author unknom = # 
4 REM # Modified by Garry Francis # 
5 REM # Published by Atari Computer # 
6 REX # ~—= Enthusiasts (N.S.We) 4 
7 REM ¢ October 1982 — $ 
8 REA #¢HHHHHHHHHHEHHEARH 
10 GRAPHICS 103FOR I=705 TO 7123READ A 
sPOKE T,466+A3NEXT I 

20 DATA 2144658,8,65452 

30 C=13FOR Y=0 TO 191:COLOR CIPLOT 0,Y 
tDRAWTO 79,191-Y 

40 C=C+0,4146666647:1F C>8 THEN C=1 

50 NEXT Y 

60 FOR X=79 10 0 STEP -1:COLOR CiPLOT 
X,O3DRANTO 79-X,191 

— 70 C=C+13IF C8 THEN C=1 

80 NEXT X 

90 COLOR OSFOR X=@ TO 203Y=INT(SOR(420 
~XxX)) 

100 PLOT 39-X,9S-YIDRANTO 39-X,96+Y3PL 
OT 40+X,9S-YSDRANTO 40+X,9S+Y3NEXT X 
110 FOR X=0 TO 19%Y=INT(SQR(380-XxX))% 
=8 

120 FOR I=95-Y¥ TO 94+Y:COLOR CiPLOT 39 
-X,ISPLOT 40+X,I 

130 C=C-132F C<i THEN (=8 

140 NEXT ISNEXT X:GOSUB 1000 

150 X=USR(ADR(A$))SFOR I=1 TO 83NEXT I 
$GOTO 158 

1000 DIM A$(21) RESTORE 1020 

1010 FOR I=1 TO 213READ AtAS$(T)=CHRS(A 
)INEXT TRETURN 

1920 DATA 104,162,0,172,193,2,189,194, 
24157 4193,2,232,224,8,144,245,140,200, 
2196 


1 REM FE HE HER HHH 
2 REK 4 CONE $ 
3 KEK # Qriginal author unkrown = 4 
4 RE # Modified by Gerry Francis # 
5 REK # Published by Atari Computer 4 
& REM # = Enthusiasts (N,S.W) 4 
7 REM # October 1982 $ 
8 REK 24443434 FH HEERHA 
10 GRAFHICS 9:DEG 

20 FOR I=-90 TO 2493X=30"SIN(T) $Y¥=160+ 
30005 (1) $C=ABS(X)/2¢IF C<1 THEN C=1 
30 IF I>90 THEN COLOR 14-C;GOTO 50 

40 COLOR CSPLOT 40, 0:DRAWTO 40+X,Y-1 
50 PLOT 40, 0:DRAHTO AQ+X,Y:NEXT I 

60 FOR I=0 70 15;SETCOLOR 4,1, 0;FOR 
1 TO 100G3NEXT JSNEXT TiGOTO 60 


5 


GRENHOLE + 

E Original aythor unknown = + 

EM # Modified by Garry Francis # 

5 REM # Published by Atari Computer # 

6 REX # = Enthusiasts (N.S.H.) $ 

7 REM ¢ October 1982 3 

B OREM ##H4HHHEHHHHHRHHHH 

10 GRAPHICS 10°3POKE 559,03DEG $DIM $(2 
20) 

20 FOR I=0 TO ASSA=SIN(I"2)SS(T)=AsS(9 
0-I)=A3S(904I)=-AiS (180-I)=-A3S(180+1) 
=ASNEXT I 

30 FOR I=705 TO 712:READ ASPOKE 1,208+ 
ASNEXT I3POKE 559,94 

40 DATA 2,4,4,8,4,4,2,0 

50 FOR X=0 TO 193 Y=INT(SGR(380-X8X) iC 
=Q 

60 FOR I=95-Y TO 96+Y:COLGR CiPLOT 39- 
X,TSPLOT 404X,I 

70 C=C-13IF C<1 THEN C=8 

80 NEXT TiNEXT X:GOSUB 1000 

90 TRAP 140%A=203X0LD=40+AxS(45) : YOLD= 
964A8S(0) 

100 C=8:FOR I=0 TO 179:X=40+AxS(1+45): 
Y=94+AxS (I) 

110 COLOR C?PLOT XOLD,YOLD:DRAHTO X,Y? 
PLOT XOLD,YOLD+1:DRANTO X,Y+1 

120 A=A+0,025:XOLD=X: YOLD=YiC=C-151F C 
<1 THEN C=8 

130 G=USR(ADR(A$)) NEXT IiGOTO 180 

140 G=USR(ADR(A$))3FOR I=1 TO 20SNEXT 

TiGOTO 140 

1000 DIM A$(Z1)SRESTORE 1020 

1010 FOR T=1 10 213READ AtAS(I)=CHRS(A 
)iNEXT TSRETURN 

1020 DATA 104,162,0,172,193,2,189,194, 
2,157 ,193,2,232,224,8,144,245,140,200, 
2396 


HHH 
¢ 
4 


a FA 


1 
2 RE 
3 REX 
4 REM 


P24 


1 REM $44543554542429 434422534444 HE 
2 REM $ PSYCHEDELIC + 
3 REM ¢ Original author uérowmn = 4 
4 REM # Modified by Carry Francis # 
5 REM # Published by Atari Computer # 
& REM # = Enthusiasts (N.S.We) } 
7 REM # October 1982 3 
8 REM #HHHHHHHHHYMHASHH 
10 GRAPHICS 103POKE 559,0;DEG ¢DIM S(2 
4),0(24) 

20 FOR T=0 TO 4:A=SIN(T215) {S(T)=AsS(1 
2-1)=A1S (1241) =-AtS(24-T)=-A 

30 A=COS(1H15) 3C(T)=AiC(12-T)=-AtC (12+ 
T)=-AtC(24-T)=AtNEXT I 

40 FOR I=1 TO 83POKE 76441, 1x16+10 MEX 
T T3POKE 559,34 

50 FOR R=i TO 8:C=RiGOSUB LIG:NEXT R 
60 FOR R=9 TO 15iC=16-RiCOSUE 1103MEXT 
R 

70 FOR R=1é 10 22:C=R-14:GQSUB 110:NEX 
TR 

80 FOR R=23 10 29:C=30-RiGOSUB 116¢HEX 
TR 

90 A=PEEK(712)+1631F A>255 THEN A=2é4 
106 FOR I=785 TO 7115POQKE I,PEEK(I+1)3 
NEXT TiPOKE 712,A:GOTO 90 

116 COLOR CiI=03G0SUB 140 

126 FOR I=1 TO 243X2=X1:Y2=Y1iGOSUB 14 
OSPLOT X2,YZ:DRARTO X1,YL3DRANTO X2-SG 
N(X),YZ2¢DRAWTO X1,Y1-SGN(Y) 

130 NEXT I3RETURN 

140 X=(29-R)aS(L) 2X1=40+4X 3 Y=(40-R x0 (I 
}$Y1=96+Y {RETURN 


1 REX #HHHHHHHARHRHHEHRHH 

2 REM # ROLLS + 

3 REM # Original author unknown = # 

4 REM # Modified by Garry Francis 4 

5 REM # Published by Atari Computer # 

& REM # = Enthusiasts (N.S.HeD + 
7 REM # October 1982 4 

8 REM HHHHHHHHHHRHHHHHA 

10 GRAPHICS 10:DEG 

20 FOR I=705 TO 7123POKE I,1343NEXT I 

30 FOR I=180 10 334 STEP 6:X=9aC0S(1)? 
Y=70+8"S1N (1) SC=INT ((T-180)/45)41 

40 COLOR GSPLOT X+9,Y3COLOR CiDRAWTO X 
+9, Y+50 

50 COLOR O3PLOT X+29,Y:COLOR 9-C3DRAWT 
0 X#29,Y+50 

60 COLOR O:PLOT X+49,Y:COLGR CSDRAHTO 
X+49,Y450 

70 COLOR OSPLOT X+49,Y:COLOR 9-CDRANT 
6 X+69,Y#50 

80 NEXT I3POKE 705,142 

90 A=PEEK(705)3FOR I=705 TO 7113POKE I 
»PEEK (141) NEXT ISPOKE 712,A‘GOTO 96 


-18- 


titties He HEH 
STRIPES + 
Original author unknown # 
4 Modified by Garry Francis # 
M # Published by Atari Coaputer + 
REM # =©Enthusiasts (N.S.H.) + 
REM $ October 1982 4 
REM 4343343424334 2443 55 F444 3444 
10 GRAPHICS 10:FOR 1=705 TO 712%READ A 
sPOKE I, 1460+ASNEXT I 
20 DATA 2,4,6,8,6,4,2,0 
30 C=1:FOR Y=0 TQ 62 STEP 2tFOR I=0 TO 
83FOR J&4 TO 58 STEP 183X=E+JUiX1=Xx+9 
40 COLOR CiPLOT X,YiPLOT X,Y+iiPLOT Xi 
+Y+64SPLOT X1,Y+653PLOT X,Y+1283PLOT X 
+Yt129 
30 COLOR -CiPLOT X1,Y:PLOT X1,Y+1 {PLO 
T X,¥+64:PLOT X,Y+65¢PLOT X1,¥+1285PL0 
T X1,Y#129:NEXT J 
60 C=C+itIF C>8 THEN C=1 
70 NEXT I:NEXT YiGQSUB 1000 
BO X=USR(ADR(A$))3FOR T=1 10 18iNEXT I 
*GOTO 80 
1000 DIM A$(21)RESTORE 1020 
1010 FOR I=1 TO Zi3READ ASA$(T}=CHRS(A 
)iNEXT TSRETURN 
1020 DATA 104,162,0,172,193,2,189,194, 
2,157 ,193,2,232)2724 8,144,245, 140,200, 
25% 


REM 


El 


set hte 


Pm 


1 
2 KEM 
3 REM 
4 Ren 
3 RE 
6 
7 
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1 REM HHH 

2 REM # HYPNOSIS 4 

3 REM # Original avthor unknown = 4 

4 REM # Modified by Garry Francis 4 

© REM # Published by Atari Computer # 

6 REM # = Enthusiasts (N.S.W,) $ 
7 REM # October 1982 q 

8 REM tHHHHHHHHRHHHHHHH 

10 GRAPHICS 1¢ 

20 FOR I=1 10 8$POKE 70441, 321-10 SNEX 
TI 

30 C=13FOR Y=0 TO 191;COLOR CiPLOT 0,Y 
{DRAWTO 79,191-Y 

40 C=C+0.41666464721F C>8 THEN C=1 

SQ NEXT Y 

60 FOR X=79 T0 0 STEP -1:COLOR CiPLOT 

X, O3DRANTO 79-X,191 

70 C=C+itIF C>8 THEN C=1 

80 NEXT X3GOSUB 1000 

90 X=USR(ADR(A$))3FOR I=1 TO SINEXT I! 
GOTO 90 

1000 DIM A$(21) RESTORE 1020 

1010 FOR I=1 TO Z21:READ ASA$(I)=CHRS(A 
)INEXT I} RETURN 

1020 DATA 104,162,0,172,193,2,189,194, 
2,197 ,193,2,232,224,8,144,245,140,200, 
2,98 


1 REM $e eSEE aR EHH 
2 REM ¢ BEACH BALL 4 
3 REN $ Original author unknown = # 
4 REM $ Modified by Garry Francis 4 
5 REM # Published by Atari Computer # 
& REM # Enthusiasts (N.S.H,) $ 
7 REM # October 1982 $ 
8 REX HSHHHYHHHHHREH 
10 GRAPHICS 103POKE 559, 0:DEG IDIK S(2 
4) ,0(24) 

20 FOR I=0 TO S:A-SIN(I¥15)/2:5(1)=AiS 
(12-T)=AIS (1241) =-Ai5(24-T)=-A 

30 A=COS(1115) "8030 (T)=A:C (12-T)=-AiC( 
124+1)=-AiC(24-T)=AtHEXT I 

40 FOR I=705 TO 71Z$READ ASPOKE T,ASNE 
XT I3POQKE 559,34 

50 DATA 14,14,52,52,118,118, 184,184 
60 AI=OFOR C=1 TO BtAz=40-40x005 (Call 
120) 

70 FOR R-Al 10 AZ:COLOR CSPLOT 40,176 
B0 FOR I=1 TO 243X=40+(40-R)"5(1) 3 ¥=96 
+C(I) 

90 IF I=13 THEN COLOR 9-C 

100 DRAHTO X,Y2NEXT TSNEXT RiA1=A2tNEX 
TC 

110 A=PEEK(705)3FOR I=705 TO 7113POKE 
T,PEEK(I+4) SMEXT SPOKE 712,A:GOTO 110 


1 REN fHHHHHHHHHEHHEHH 
2 REM # WATER MELON 4 
3 REM # Original author unknown = 4 
4 REM # Modified by Garry Francis # 
5 REN # Published by Atari Computer # 
-6 REM # = Enthusiasts (N.S.W.) 4 
7 REM October 1982 4 
8 REN HHHHHHHHHHRHHHHHH 
10 GRAPHICS LOSPOKE 5597,0:DEG DIM (3 
4) 

20 FOR I=0 TO PtA=GIN(LOxI)S(T)=AsS(1 
B-I)=AiS(18+1)=-AiS(36-T)=-AINEXT I 
30 FOR I=705 TO 7123READ AiPOKE T,AtNE 
XT ISPOQKE 559,34 

40 DATA 198,200,202,204,204,202,200,54 
50 X1=53Y1=943F =0:GOSUB 100 

60 X1=743F=1:GOSUB 100 

70 GOTO 70 

100 C=1{A=40 

110 COLOR CiPLOT X1,Yi3FOR I=18 10 27: 
X=25"5(1+9)43030F F THEN X=79-X 

120 Y=AxS(I){DRANTO X,96+YiNEXT I 

130 C=C+iSIF C>7 THEN C=1 

140 A=A-13IF A>~40 THEN 110 

150 COLOR 83FOR I=0 TO 18:X=4x5(1+9)+3 
Q¢IF F THEN X=79-X 

160 Y=40x5(I) SPLOT X,95+Y SDRANTO X,94- 
YiNEXT I 

170 COLOR O3FOR T=1 TO 253X=RND(G)x6+2 
7¢IF F THEN X=79-X 

180 Y=RND(0)"40+663PLOT X,YiNEXT ISRET 
URN 


-19- 


1 REM SSS2ES7 2SShse Se SEL HHH 
2 RER 4 SAS + 
3 REX # Original author unknown = # 
4 REM 4 Fodified by Garry Francis # 
5 REM # Published by Atari Computer # 
& REX # = Enthusiests (N.S.H,) 4 
7 REM # October 1982 4 
8 REM 444 HHHAHH HHH 
10 GRAPHICS 10°3POKE 559,0:DEG +DIM $(4 
50) 

20 FOR T=0 TO 903A=SIN(T)359(1)=AsS(180 
~T)=A29 (18041 )=-A3S(340-T)=-AtS (36041) 
=AINEXT I 

30 FOR I=705 TO 712:READ A:POKE I,114+ 
AINEXT I 

40 DATA 2,4,6,8,8,6,452 

50 GOSUR 1000%C=1 SPOKE 559,34 

40 FOR I=0 TO 359'X=40+3025(90+1) i Y=96 
+8025(T)3COLOR INT(C) 

70 PLOT 65,973DRANTO X,Y+L3PLOT 45,963 
DRANTO X,Y:PLOT 45,95;3DRAWTO X,Y-1 

80 C=C+0,5:TF C>8.5 THEN C=1 

90 X=USR(ADR(A$) ) SNEXT T 

100 X=USR(ADR(A$))3FOR I=1 TO 34 3NEXT 
TiGoTd 100 

1000 DIM A$(21)3RESTORE 1620 

1010 FOR I=1 TO 213READ ASA$(I)=CHREA 
)SNEXT TSRETURN 

1020 DATA 104,142,0,172,193,2, 189,194, 
2,157 ,193,2,232,224,8,144,245, 140,200, 
2596 


“1 REM #05999949994905944533444 HH 


2 REM # ~ POLES + 

3 REM # Original author unknown = 4 

4 REM # Modified by Garry Francis # 

S REM # Published by Atari Computer 4 

& REX # = Enthusiasts (N.S.W.) $ 

7 REM ¢ October 1982 $ 

8 REM HHH HHHHHHRHH 

10 GRAPHICS 10FOR I=705 TQ 712:READ A 
*POKE I,50+ASNEXT I 

20 DATA 2,4,4,8,6,4,2,0 

30 C=1FOR Y=0 TO 58 STEP 2:FOR I=0 TO 
Si COLOR C 

40 FOR 5 TO 65 STEP 12$X=I+J3PLOT X, 
YiPLOT X,Y#iSPLOT X,Y+64:PLOT X,Y+653P 
LOT X,¥+iZ283PLOT X,Y+i29:NEXT J 

30 C=C+i{IF C>8 THEN C=1 

40 NEXT TiNEXT Y:GOSUB 1000 

70 X=USR(ADR(A$))SFOR I=1 TO 183NEXT I 
*COTO 78 

1000 DIM A$(21)SRESTORE 1020 

1010 FOR I=1 TO 21:READ ASAS(T)=CHRS(A 
)NEXT I:RETURN 

1020 DATA 104,162,0,172,193,2,199,194, 
2,157 ,193,2,232,224,8,144,245,140,200, 
2596 


* Tricky Tutorials * Santa Cruz Educational Software * Tricky Tutorials * Santa Cruz Educational Software * Tricky Tulorials * Santa Cruz Educational Software 


Educational Scttware 


ATARI (tm) GRSPHICS Aid SOUL 


SANTA CRUZ EDUCATIONAL SOFTWARE HAS WRITTEN A SERIES OF AFFORUAELE PROGRAMS THAT DEMONSTRATES MANY OF THE 
SPECIAL ‘'TRICKS'' THAT ONLY THE ATARI 400/800 COMPUTER IS CAPABLE OF DOING. WE OFFER EVERYTHING FROM A FROGRAM 
THAT DOES FANTASTIC HIGH RESOLUTION GRAPHICS TO ONE THAT ACTUALLY DIALS YOUR PHONE..... 


tito kt tok tk koko kok toot tok k took ok ok koko koto tok tok 


MASTER MEMORY MAP(tm) — This is really the key to us- 
ing the ATARI'S capabilities We start out by explaining 
how to PEEK and POKE values into memory so thal even 
New programmers can use this Then. we give you over 15 
pages of the memory locations that are the most usetul. The 
information is condensed from both the ATARI'S Operating 
System Manua! and various articles and programs. itis. of 
course. uselul even for experienced programmers as a 
reference. Also. we highly Suggest that dealers offer this 
Memory Map to Customers who request to be told how to 
use the power of the machine, We guarantee it will answer 
many of the questions you have about the machine. 


$6.95 


TRICKY TUTORIALS(tm) 


#1: DISPLAY LISTS — This program teaches you how to 
alter the program in the ATARI that controls the format of 
the screen. For example: when you Say graphics 8 the 
machine responds with a large graphics 8 area at the top of 
the screen and a small text area at the bottom. Now. you 


_ will be able to mix the various modes on the screen at the 


same time. Just think how nice your programs could look 
with a mix of large and small text, and both high and low 
resolution graphics. this program has many examples plus 
does all of the difficult caluculations! 


#2; HORIZONTAL/VERITCAL SCROLLING — The intorm- 
ation you put on the screen, either graphics or text, can be 
moved up, down or sideways. This can make some nice el- 
fects. You could move only the text on the bottom hall of the 
screen or perhaps create a map and then move smoothly 
over it by using the joystick. 


#3: PAGE FLIPPING — Normally you have to redraw the 
screen every time you change the picture or text. Now you 
can learn how to have the computer draw the next page you 
want to see while you are still looking at the previous page, 
then flip to it instantly. You won't see it being drawn, soa 
complicated picture can seem to just appear. Depending on 
your memory size and how complicated the picture, you 
could flip between many pages, thus allowing animation or 
other special effects with your text. 


#4: BASICS OF ANIMATION — Shows you how to animate 
simple shapes using the PRINT and PLOT commands, and 
also has nice little PLAYER/MISSILE Graphics demo to 
learn. This would be an excellent way to start making your 
programs come alive on the screen. Recommended for new 
owners. 


#5 PLAYER MISSILE GRAPHICS — This complex subject is 
demonstrated by starting with simple examples, and 
building up to a complete game and also an animated 
business chart on multiple pages! As always, the computer 
does most of the calculations. Requires 32K disk or tape 
and costs $29.95 


#6: SOUND — From explaining how to create single notes, 
to demonstrating complex four channel sound effects, this 
newes! tutorial is great. Even those experienced with 
ATARI’s sound capabilities will find the menu of sound ef- 
fects a needed relerence that can be used whenever you 
are in the need of a special sound for your programs. 
Everyone will learn something new! Written by Jerry 
White. 


Tricky Tutorials (except #5) require 16K 
memory for cassette ordars and 24K for disk. 
The price is $19.95each. You may order 
1,2,3, & 4 for $64.95.All six in a colorful 
binder cost $99.95. 


THE GRAPHICS MACHINE!! — Turn your computer into an 
incredible graphics tool with advanced commands like cir- 
cle, box. fill, polygon. line, help, etc. 3 colors in graphics 8 
with instant text!!! Create colorful business charts or 
beautiful drawings and then save or retrieve them from 
disk in 5 SECONDS. YES, it’s thal fast. Needs all 48K, ~ 
disk, and costs $19.95 





MINI-WORD PROCESSOR — This is for those of you who 
have a printer, but don’t want to spend $100 or more for a 
fancy word processor. It is suitable for simple editing of 
text, accepts most control characters for your printer, and 
text is stored on disk for easy retrieval. Holds 2% typed 
pages at a time. Requires 32K, disk or tape. $19.95 


BOB'S BUSINESS — 14 small business type programs for 
home or office, all chosen from a nice menu. Supports 
printed output. 169 sectors of output require 16K tape. or 
32K disk. $14.95 


WAGE EASY! 


KIO'S #1 — Includes the following 1) TREASURE — 
search for the lost teasure while trying to keep from faliing 
inte the sea. Nice graphics if you find it’, 2)DIALQGUE — 
talk back to the computer abdou! four subjects: 3) MATH 
QUIZ - Nice musical and graphical rewards for good 
scores Parents input the level of difficulty 


KID'S #2 — A spelling quiz.a‘‘’scratble™’ type game, and 
a version of Touch with the compute: giving all the direc- 
tions! Both Kid's programs require 16k tape or 24K disk 
and cost $14.95 each 


MINI-DATABASE/DIALER -- This unique new program 
stores and edits up to 8 lines of information such as name, 
address. and phone numbers. or messages. inventories or 
anything you want. It has the usual sort. search, and print 
options. but it also has an unusual feature: If your files in- 
clude phone numbers and you have a touch-tone phone. 
the program will DIAL THE PHONE NUMBERS FOR YOU! 
This is perfect for those who make a lot of calls like 
salesmen, teens. or those trying to get through to busy 
numbers (acts as an auto-redialer}. It is also a lot of fun to 
use. Requires 16K cassette or 24K disk and costs $24.95 


FONETONE — For those who only want to store name and 
phone numbers and have the dialer teature as above. we 
offer this reduced version Same memory requirements 
but only costs $14.95. Don't forget you must have a touch- 
tone phone. 


PLAYER PIANO — Turns your keyboard into a mini-piano 
and more. Multiple menu options provide the ability to 
Create your own songs, save or load data files using 
cassette or diskette, fix of change any of up to 400 notes in 
memory. and play all or partolasong The screen displays 
the keyboard and indicates each key as it is played troma 
data file or the notes you type. You don't have to be a musi- 
cian to enjoy this educational and entertaining program. 
Requires 24K cassette or 32K disk, $14.95 


All 
available 


from 


BqUES , SEJOIN] ANTAL , BIEMYOS [EUOTVEINPY ZNsg eyueS , SejOIN] AyD|A4 , OIEMIOS jeuO|eoNpy zg EWES , 





Lower Ground Floor 


All Correspondence to: 
Myer Sydney Store 


Box 268 

GPO Sydney George and Market Streets 

N.S.W. 2001 Sydney 
Tel: 238 9984 
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